home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 19 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  162b  |  9 lines
  1. 2200 REM INVENTUR ROUTINE
  2. 2205 IFVE<>22THEN2300
  3. 2210 PRINT"ICH HABE: ";
  4. 2220 IC=0:FORI=1TOGZ:IFGE(I)=-1THENPRINTGE$(I)",";:IC=1
  5. 2225 NEXT
  6. 2230 IFIC=0THENPRINT"NICHTS."
  7. 2235 IFIC=1THENPRINT"[157] "
  8. 2300 GOTO1000
  9.